home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_63_text tool script.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  4.3 KB  |  101 lines
  1. global gSize, gCast, gVariable, gFirstColor, myCurrentImage, myCurrentPreview, myCurrentSelection, gMarqueeRect, gSelectRect, myTimerStart, gSelectionEdited, myStartImage
  2.  
  3. on toolText
  4.   global gMUI
  5.   gMUI = new(xtra("mui"))
  6.   windowProps = GetWindowPropList(gMUI)
  7.   windowProps.type = #normal
  8.   windowProps.name = "Input Text"
  9.   windowProps.callback = "myCallbackFont"
  10.   windowProps.width = 200
  11.   windowProps.height = 100
  12.   windowProps.Mode = #pixel
  13.   list = []
  14.   element = GetItemPropList(gMUI)
  15.   element.type = #label
  16.   element.value = "Text:"
  17.   element.locH = 5
  18.   element.locV = 5
  19.   element.width = 100
  20.   element.height = 20
  21.   add(list, element)
  22.   element = GetItemPropList(gMUI)
  23.   element.type = #editText
  24.   element.value = EMPTY
  25.   element.locH = 5
  26.   element.locV = 30
  27.   element.width = 190
  28.   element.height = 20
  29.   add(list, element)
  30.   element = GetItemPropList(gMUI)
  31.   element.type = #defaultPushButton
  32.   element.title = "OK"
  33.   element.locH = 20
  34.   element.locV = 65
  35.   element.width = 60
  36.   element.height = 20
  37.   add(list, element)
  38.   element = GetItemPropList(gMUI)
  39.   element.type = #cancelPushButton
  40.   element.title = "Cancel"
  41.   element.locH = 120
  42.   element.locV = 65
  43.   element.width = 60
  44.   element.height = 20
  45.   add(list, element)
  46.   Initialize(gMUI, [#windowPropList: windowProps, #windowItemList: list])
  47.   Run(gMUI)
  48. end
  49.  
  50. on myCallbackFont action, elementNumber, elementList
  51.   global gMUI, gNameValue
  52.   if action = #itemChanged then
  53.     gNameValue = elementList.value
  54.   end if
  55.   if (action = #itemClicked) and (elementList.title = "OK") then
  56.     if (gNameValue = EMPTY) or (gNameValue = VOID) then
  57.       member("image text").text = "text"
  58.     else
  59.       member("image text").text = gNameValue
  60.     end if
  61.     stop(gMUI, 0)
  62.     gMUI = VOID
  63.     gNameValue = VOID
  64.     cursor(4)
  65.     member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  66.     myStartImage = duplicate(member(gSize & "x" & gSize, gCast).image)
  67.     myCurrentImage = duplicate(member(gSize & "x" & gSize, gCast).image)
  68.     myCurrentPreview = duplicate(member("preview", gCast).image)
  69.     myMask = member("image text").image.extractAlpha().trimWhiteSpace()
  70.     myCurrentSelection = image(myMask.width, myMask.height, 32)
  71.     myCurrentSelection.fill(myCurrentSelection.rect, rgb(gFirstColor.red, gFirstColor.green, gFirstColor.blue))
  72.     myCurrentSelection.useAlpha = 1
  73.     myCurrentSelection.setAlpha(myMask)
  74.     myCurrentImage.copyPixels(myCurrentSelection, rect(0, 0, myCurrentSelection.width, myCurrentSelection.height), myCurrentSelection.rect)
  75.     member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  76.     sendSprite(146, #turnMeOn)
  77.     r = myCurrentSelection.width
  78.     b = myCurrentSelection.height
  79.     gSelDestRect = rect(0, 0, r, b)
  80.     sprite(4).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top + 1)
  81.     sprite(5).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.left * gVariable) + sprite(1).left + 1, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  82.     sprite(6).rect = rect((gSelDestRect.right * gVariable) + sprite(1).left - 1, (gSelDestRect.top * gVariable) + sprite(1).top, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  83.     sprite(7).rect = rect((gSelDestRect.left * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top - 1, (gSelDestRect.right * gVariable) + sprite(1).left, (gSelDestRect.bottom * gVariable) + sprite(1).top)
  84.     updateStage()
  85.     fnUpdatePreview()
  86.     gMarqueeRect = rect(sprite(5).left, sprite(4).top, sprite(6).right, sprite(7).bottom)
  87.     gSelectRect = rect((sprite(5).left - sprite(1).left) / gVariable, (sprite(4).top - sprite(1).top) / gVariable, (sprite(6).right - sprite(1).left) / gVariable, (sprite(7).bottom - sprite(1).top) / gVariable)
  88.     put gSelectRect.width into field "dimension status W"
  89.     put gSelectRect.height into field "dimension status H"
  90.     myTimerStart = the milliSeconds
  91.     gSelectionEdited = 1
  92.     cursor(0)
  93.   else
  94.     if (action = #itemClicked) and (elementList.title = "Cancel") then
  95.       stop(gMUI, 0)
  96.       gMUI = VOID
  97.       gNameValue = VOID
  98.     end if
  99.   end if
  100. end
  101.